home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideoUtilities / card_4180.txt < prev    next >
Text File  |  1991-03-04  |  12KB  |  496 lines
  1. -- card: 4180 from stack: in
  2. -- bmap block id: 3679
  3. -- flags: 4000
  4. -- background id: 4582
  5. -- name: labeler
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the date into field "date"
  9. end openCard
  10.  
  11. on showemall
  12.   show card picture
  13.   show cd button "help"
  14.   show cd button "print"
  15.   show cd button "port to stack"
  16.   show cd button "clear"
  17.   show cd button "master"
  18.   show cd button "prefs"
  19.   show cd button "go calc"
  20.   show cd button 13
  21.   show cd button 14
  22. end showemall
  23.  
  24.  
  25.  
  26. -- part 6 (button)
  27. -- low flags: 00
  28. -- high flags: A000
  29. -- rect: left=335 top=318 right=336 bottom=392
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 3
  34. -- text size: 10
  35. -- style flags: 2304
  36. -- line height: 13
  37. -- part name: clear
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   put empty into field "A1"
  41.   put empty into field "B1"
  42.   put empty into field "title"
  43.   put empty into field "Atitle"
  44.   put empty into field "Btitle"
  45.   put empty into field "A2"
  46.   put empty into field "B2"
  47.   put empty into field "catalog number"
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 7 (button)
  53. -- low flags: 00
  54. -- high flags: 2000
  55. -- rect: left=7 top=302 right=334 bottom=77
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Power
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   doPower
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 8 (button)
  72. -- low flags: 00
  73. -- high flags: A000
  74. -- rect: left=279 top=290 right=308 bottom=335
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 3
  79. -- text size: 10
  80. -- style flags: 2304
  81. -- line height: 13
  82. -- part name: print
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   set the lockScreen to true
  86.   show cd field "printrecover"
  87.   hide card picture
  88.   hide cd button "help"
  89.   hide cd button "print"
  90.   hide cd button "port to stack"
  91.   hide cd button "clear"
  92.   hide cd button "master"
  93.   hide cd button "prefs"
  94.   hide cd button "go calc"
  95.   hide cd button 13
  96.   hide cd button 14
  97.   doMenu Print Card
  98.   hide cd field "printrecover"
  99.   showemall
  100.   set the lockScreen to false
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 9 (button)
  106. -- low flags: 00
  107. -- high flags: A000
  108. -- rect: left=392 top=290 right=309 bottom=451
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 3
  113. -- text size: 10
  114. -- style flags: 2304
  115. -- line height: 13
  116. -- part name: go calc
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   go to first card
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 10 (button)
  125. -- low flags: 00
  126. -- high flags: 2000
  127. -- rect: left=86 top=302 right=333 bottom=128
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: CDswitch
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   go to any card of background "CD" of stack "AudioVideo Library"
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 11 (button)
  144. -- low flags: 00
  145. -- high flags: 2000
  146. -- rect: left=135 top=302 right=333 bottom=177
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: LPswitch
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   go to any card of background "LP" of stack "AudioVideo Library"
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 12 (button)
  163. -- low flags: 00
  164. -- high flags: 2000
  165. -- rect: left=182 top=302 right=333 bottom=224
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: TAPEswitch
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   go to any card of background "TAPE" of stack "AudioVideo Library"
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 13 (button)
  182. -- low flags: 00
  183. -- high flags: 2000
  184. -- rect: left=230 top=302 right=333 bottom=272
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: VIDEOswitch
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   go to any card of background "VIDEO" of stack "AudioVideo Library"
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 14 (button)
  201. -- low flags: 00
  202. -- high flags: A000
  203. -- rect: left=394 top=318 right=336 bottom=506
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 3
  208. -- text size: 10
  209. -- style flags: 2304
  210. -- line height: 13
  211. -- part name: port to stack
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   answer "What is the format of the Titles area?" with "title only" or "artist / title" or "artist: title"
  215.   if it is "title only" then
  216.     put empty into Aartist
  217.     put empty into Bartist
  218.     if the visible of field "title" is true then
  219.       put field "title" into Atitle
  220.       put Atitle into Btitle
  221.     else
  222.       put bkgnd field "Atitle" into Atitle
  223.       put bkgnd field "Btitle" into Btitle
  224.     end if
  225.   end if
  226.   if it is "artist / title" then
  227.     put bkgnd field "Atitle" into Aartist
  228.     put Aartist into Bartist
  229.     put bkgnd field "Btitle" into Atitle
  230.     put Atitle into Btitle
  231.   end if
  232.   if it is "artist: title" then
  233.     if the visible of field "title" is true then
  234.       put length(field "title") into titlelength
  235.       put offset(":",field"title") - 1 into artistend
  236.       put artistend + 2 into titlestart
  237.       put char 1 to artistend of field "title" into Aartist
  238.       put Aartist into Bartist
  239.       if char titlestart of field "title" is space
  240.       then add 1 to titlestart
  241.       put char titlestart to titlelength of field "title" into Atitle
  242.       put Atitle into Btitle
  243.     else
  244.       put length(field "Atitle") into AtitleLength
  245.       put length(field "Btitle") into BtitleLength
  246.       put offset(":",field"Atitle") - 1 into Aartistend
  247.       put Aartistend + 2 into Atitlestart
  248.       put offset(":",field"Btitle") - 1 into Bartistend
  249.       put Bartistend + 2 into Btitlestart
  250.       put char 1 to Aartistend of field "Atitle" into Aartist
  251.       if char Atitlestart of field "Atitle" is " "
  252.       then add 1 to Atitlestart
  253.       put char Atitlestart to AtitleLength of field "Atitle" into Atitle
  254.       put char 1 to Bartistend of field "Btitle" into Bartist
  255.       if char Btitlestart of field "Btitle" is " "
  256.       then add 1 to Btitlestart
  257.       put char Btitlestart to BtitleLength of field "Btitle" into Btitle
  258.     end if
  259.   end if
  260.  
  261.   put bkgnd field "A1" into A1side
  262.   put bkgnd field "A2" into A2side
  263.   put bkgnd field "B1" into B1side
  264.   put bkgnd field "B2" into B2side
  265.   put bkgnd field "noiseReduction" into noiseReduction
  266.   put bkgnd field "tape brand" && "audio tape" into reclabel
  267.   put bkgnd field "tape length" into tapelength
  268.   put bkgnd field "catalog number" into catalog
  269.   go to any card of background "TAPE" of stack "AudioVideo Library"
  270.   click at location of bkgnd button "NewCard"
  271.   push card
  272.   put A1side & A2side into field "IA"
  273.   put B1side & B2side into field "IB"
  274.   put Atitle into field "title"
  275.   put Btitle into field "IBtitle"
  276.   put Aartist into field "artist"
  277.   put Bartist into field "IBartist"
  278.   put noiseReduction into field "noiseReduction"
  279.   put reclabel into field "recording label"
  280.   put tapelength into field "length"
  281.   put catalog into field "catalog number"
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 15 (button)
  287. -- low flags: 00
  288. -- high flags: A000
  289. -- rect: left=278 top=318 right=336 bottom=335
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 1
  293. -- font id: 3
  294. -- text size: 10
  295. -- style flags: 2304
  296. -- line height: 13
  297. -- part name: help
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   doMenu Next
  301. end mouseUp
  302.  
  303.  
  304.  
  305. -- part 17 (button)
  306. -- low flags: 00
  307. -- high flags: A000
  308. -- rect: left=333 top=290 right=308 bottom=394
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 0 / 0
  311. -- text alignment: 1
  312. -- font id: 3
  313. -- text size: 10
  314. -- style flags: 2304
  315. -- line height: 13
  316. -- part name: master
  317. ----- HyperTalk script -----
  318. on mouseUp
  319.   go to first card of stack "AudioVideo Library"
  320. end mouseUp
  321.  
  322.  
  323.  
  324. -- part 18 (button)
  325. -- low flags: 00
  326. -- high flags: A000
  327. -- rect: left=450 top=290 right=308 bottom=507
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 1
  331. -- font id: 3
  332. -- text size: 10
  333. -- style flags: 2304
  334. -- line height: 13
  335. -- part name: prefs
  336. ----- HyperTalk script -----
  337. on mouseUp
  338.   lock screen
  339.   repeat forever
  340.     answer "Set the Text Style of which fields?" with "Selections" or "Titles" or "Done"
  341.     if it is "Done" then exit repeat
  342.     if it is "Selections" then
  343.       click at location of field "A1"
  344.       doMenu "Text Style..."
  345.       put textAlign of field "A1" into TA
  346.       put textFont of field "A1" into TF
  347.       put textSize of field "A1" into TSZ
  348.       put textStyle of field "A1" into TST
  349.       put textHeight of field "A1" into THT
  350.       set textAlign of field "A2" to TA
  351.       set textFont of field "A2" to TF
  352.       set textSize of field "A2" to TSZ
  353.       set textHeight of field "A2" to THT
  354.       set textAlign of field "B1" to TA
  355.       set textFont of field "B1" to TF
  356.       set textSize of field "B1" to TSZ
  357.       set textHeight of field "B1" to THT
  358.       set textAlign of field "B2" to TA
  359.       set textFont of field "B2" to TF
  360.       set textSize of field "B2" to TSZ
  361.       set textHeight of field "B2" to THT
  362.       put ("set the textStyle of bkgnd fld 2 to " & TST)
  363.       returnKey
  364.       put ("set the textStyle of bkgnd fld 4 to " & TST)
  365.       returnKey
  366.       put ("set the textStyle of bkgnd fld 5 to " & TST)
  367.       returnKey
  368.       hide message
  369.     end if
  370.     if it is "Titles" then
  371.       if the visible of field "title" is true then
  372.         click at location of field "title"
  373.         doMenu "Text Style..."
  374.       else
  375.         click at location of field "ATitle"
  376.         doMenu "Text Style..."
  377.         put textAlign of field "ATitle" into TA
  378.         put textFont of field "ATitle" into TF
  379.         put textHeight of field "ATitle" into TH
  380.         put textSize of field "ATitle" into TSZ
  381.         put textStyle of field "ATitle" into TST
  382.         set textAlign of field "BTitle" to TA
  383.         set textFont of field "BTitle" to TF
  384.         set textHeight of field "BTitle" to TH
  385.         set textSize of field "BTitle" to TSZ
  386.         put ("set the textStyle of bkgnd fld 6 to " & TST)
  387.         returnKey
  388.         hide message
  389.       end if
  390.     end if
  391.     unlock screen
  392.     lock screen
  393.   end repeat
  394.   unlock screen
  395. end mouseUp
  396.  
  397.  
  398.  
  399. -- part 21 (field)
  400. -- low flags: 81
  401. -- high flags: 0000
  402. -- rect: left=0 top=0 right=342 bottom=512
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 0
  406. -- font id: 3
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: printrecover
  411. ----- HyperTalk script -----
  412. on mouseDown
  413.   lock screen
  414.   hide me
  415.   showemall
  416.   unlock screen
  417. end mouseDown
  418.  
  419.  
  420.  
  421. -- part 22 (button)
  422. -- low flags: 00
  423. -- high flags: 8006
  424. -- rect: left=320 top=76 right=98 bottom=512
  425. -- title width / last selected line: 0
  426. -- icon id / first selected line: 0 / 0
  427. -- text alignment: 1
  428. -- font id: 3
  429. -- text size: 9
  430. -- style flags: 0
  431. -- line height: 12
  432. -- part name: single title field
  433. ----- HyperTalk script -----
  434. on mouseUp
  435.   if the hilite of me is false then
  436.     set the hilite of me to true
  437.     set the hilite of cd button 14 to false
  438.     hide field "Atitle"
  439.     hide field "Btitle"
  440.     show field "title"
  441.   end if
  442. end mouseUp
  443.  
  444.  
  445.  
  446. -- part 23 (button)
  447. -- low flags: 00
  448. -- high flags: C006
  449. -- rect: left=304 top=132 right=154 bottom=512
  450. -- title width / last selected line: 0
  451. -- icon id / first selected line: 0 / 0
  452. -- text alignment: 1
  453. -- font id: 3
  454. -- text size: 9
  455. -- style flags: 0
  456. -- line height: 12
  457. -- part name: dual title fields
  458. ----- HyperTalk script -----
  459. on mouseUp
  460.   if the hilite of me is false then
  461.     set the hilite of me to true
  462.     set the hilite of cd button 13 to false
  463.     hide field "title"
  464.     show field "Atitle"
  465.     show field "Btitle"
  466.   end if
  467. end mouseUp
  468.  
  469.  
  470.  
  471. -- part contents for background part 13
  472. ----- text -----
  473. Maxell
  474.  
  475. -- part contents for background part 11
  476. ----- text -----
  477. 12/1/90
  478.  
  479. -- part contents for background part 10
  480. ----- text -----
  481. Dolby C
  482.  
  483. -- part contents for background part 14
  484. ----- text -----
  485. 90 min
  486.  
  487. -- part contents for background part 5
  488. ----- text -----
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.